home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / OInterfaces / CRMSerialDevices.mod < prev    next >
Encoding:
Text File  |  1995-08-10  |  1.7 KB  |  67 lines  |  [TEXT/MPS ]
  1. (*
  2.      File:        CRMSerialDevices.mod
  3.  
  4.      Contains:    Communications Resource Manager Serial Device interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Package:    Universal Interfaces 2.0 in “MPW Latest” on ETO #17
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs.applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. *)
  19.  
  20. (*$TAGS-*)
  21. (*$CALLING PASCAL*)
  22. MODULE CRMSerialDevices;
  23.  
  24. IMPORT SYSTEM, Types;
  25.  
  26. (* $PUSH*)
  27. (* $ALIGN MAC68K*)
  28. (* $LibExport+*)
  29.  
  30. CONST
  31. (*     for the crmDeviceType field of the CommResources.CRMRec data structure    *)
  32.     crmSerialDevice*                = 1;
  33. (*    version of the CRMSerialRecord below    *)
  34.     curCRMSerRecVers*            = 1;
  35.  
  36. (* Maintains compatibility w/ apps & tools that expect an old style icon    *)
  37.  
  38. TYPE
  39.     CRMIconRecord* = RECORD
  40.         oldIcon*:                ARRAY 32 (*ΔΔ[0..31]ΔΔ*) OF LONGINT;                (* ICN#    *)
  41.         oldMask*:                ARRAY 32 (*ΔΔ[0..31]ΔΔ*) OF LONGINT;
  42.         theSuite*:                Types.Handle;                                    (* Types.Handle to an IconSuite    *)
  43.         reserved*:                LONGINT;
  44.     END;
  45.  
  46.     CRMIconPtr* = POINTER TO CRMIconRecord;
  47.     CRMIconHandle* = HANDLE TO CRMIconRecord (*ΔΔ POINTER TO CRMIconRecordPtr*);
  48.  
  49.     CRMSerialRecord* = RECORD
  50.         version*:                INTEGER;
  51.         inputDriverName*:        Types.StringHandle;
  52.         outputDriverName*:        Types.StringHandle;
  53.         name*:                    Types.StringHandle;
  54.         deviceIcon*:                CRMIconHandle;
  55.         ratedSpeed*:                LONGINT;
  56.         maxSpeed*:                LONGINT;
  57.         reserved*:                LONGINT;
  58.     END;
  59.  
  60.     CRMSerialPtr* = POINTER TO CRMSerialRecord;
  61.  
  62.  
  63. (* $ALIGN RESET*)
  64. (* $POP*)
  65.  
  66.  END CRMSerialDevices.
  67.